home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / dosbasic.zip / DFILE.BI < prev    next >
Text File  |  1990-12-19  |  1KB  |  38 lines
  1. DEFINT A-Z
  2. 'Copr., Copyright 1990, Sidney J. Kelly, All rights Reserved.
  3. '------------------------------------------------------------
  4. DECLARE FUNCTION ACTUALEXTND% ()
  5. DECLARE FUNCTION ANSICHECK% ()
  6. DECLARE SUB BEEPER
  7. DECLARE FUNCTION CHECK87% ()
  8. DECLARE FUNCTION DOSVER% ()
  9. DECLARE SUB DRIVEALIAS (ASSIGN%, DAPPEND%, NETWORK%, SHARE%)
  10. DECLARE SUB DRVSPACE (Drive$, SPACE&)
  11. DECLARE SUB EQUIPMENT (ConvMem%, PrinterPorts%, ComPorts%)
  12. DECLARE SUB EXIST (FILNAME$, ErrCode%, Mode%)
  13. DECLARE FUNCTION FINDDRIVES% ()
  14. DECLARE SUB FLOPPYDRIVES (NumDrives%)
  15. DECLARE SUB FLOPPYREADY (Drive$, ErrCode%)
  16. DECLARE FUNCTION GETCPU% ()
  17. DECLARE SUB GETCURRENTNAME (FiName AS STRING, FileLength%)
  18. DECLARE SUB GETDOSVER (VERSION$)
  19. DECLARE SUB GETDRIVE (Drive$)
  20. DECLARE SUB GETFULLPATH (PATH$, PATHLEN%)
  21. DECLARE SUB GETSUB (PATH AS STRING, PATHLEN%)
  22. DECLARE SUB HARDDRIVES (NoDrives%)
  23. DECLARE SUB KILLPRINT (LptNum%)
  24. DECLARE SUB LEFTROTATE (A$)
  25. DECLARE FUNCTION MEM2INT% (SegAddress%, OffAddress%)
  26. DECLARE SUB MEM2STRING (TEXT$, SegAddress%, OffAddress%)
  27. DECLARE SUB OTHERMEMORY (EXTENDED%, EXPANDED%, XMS%)
  28. DECLARE SUB OTHEROPER (DPMI%, WINDOWS%, DESQ%)
  29. DECLARE FUNCTION PRINTRDY% (Lpt%)
  30. DECLARE SUB PRINTSCREEN (Mode%, ErrCode%)
  31. DECLARE SUB RIGHTROTATE (A$)
  32. DECLARE SUB REVERSESTRING (A$)
  33. DECLARE SUB SETDRIVE (Drive$, ErrCode%)
  34. DECLARE SUB SUBEXIST (PATH$, ErrCode%)
  35. DECLARE SUB SUBSTDRIVE (Drive$, ErrCode%)
  36. DECLARE SUB TRUENAME (OrigFile$, TrueFName$, FileLength%)
  37.  
  38.